home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / AUG / RP9508 / mainfrm.pas < prev    next >
Pascal/Delphi Source File  |  1995-04-03  |  2KB  |  101 lines
  1. unit Mainfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Btnbar;
  8.  
  9. type
  10.   TMainWin = class(TForm)
  11.     Panel1: TPanel;
  12.     Image1: TImage;
  13.     Label1: TLabel;
  14.     BBtnMainHelp: TBitBtn;
  15.     BBtnClose: TBitBtn;
  16.     GroupBox1: TGroupBox;
  17.     BBtnInsurance: TBitBtn;
  18.     BBtnBenefits: TBitBtn;
  19.     BitBtn3: TBitBtn;
  20.     procedure BBtnCloseClick(Sender: TObject);
  21.     procedure BBtnInsuranceClick(Sender: TObject);
  22.     procedure BBtnBenefitsClick(Sender: TObject);
  23.     procedure BitBtn3Click(Sender: TObject);
  24.     procedure BBtnMainHelpClick(Sender: TObject);
  25.     procedure FormActivate(Sender: TObject);
  26.     procedure BBtnInsuranceEnter(Sender: TObject);
  27.     procedure BBtnBenefitsEnter(Sender: TObject);
  28.     procedure BitBtn3Enter(Sender: TObject);
  29.   private
  30.     { Private declarations }
  31.   public
  32.     { Public declarations }
  33.   end;
  34.  
  35. var
  36.   MainWin: TMainWin;
  37.  
  38. implementation
  39.  
  40. {$R *.DFM}
  41.  
  42. procedure TMainWin.BBtnCloseClick(Sender: TObject);
  43. begin
  44. MainWin.Close;
  45. end;
  46.  
  47. procedure TMainWin.BBtnInsuranceClick(Sender: TObject);
  48. begin
  49. MainWin.Hide;
  50. BtnBarWin.Show;
  51. BtnBarWin.SBInsuranceClick(Sender);
  52. end;
  53.  
  54. procedure TMainWin.BBtnBenefitsClick(Sender: TObject);
  55. begin
  56. MainWin.Hide;
  57. BtnBarWin.Show;
  58. BtnBarWin.SBBenefitsClick(Sender);
  59. end;
  60.  
  61. procedure TMainWin.BitBtn3Click(Sender: TObject);
  62. begin
  63. MainWin.Hide;
  64. BtnBarWin.Show;
  65. BtnBarWin.SBPoliciesClick(Sender);
  66.  
  67. end;
  68.  
  69. procedure TMainWin.BBtnMainHelpClick(Sender: TObject);
  70. begin
  71. Application.HelpFile := 'HRINFO.HLP';
  72. Application.HelpCommand(HELP_CONTENTS, 0);
  73. end;
  74.  
  75. procedure TMainWin.FormActivate(Sender: TObject);
  76. begin
  77. If Application.HelpFile <> 'HRINFO.HLP' then
  78.    Application.HelpFile := 'HRINFO.HLP';
  79. end;
  80.  
  81. {These OnEnter event handlers set the application Help file to the
  82.  default so that context Help will be available for the buttons. This
  83.  is done by calling the form OnActivate evnt handler}
  84.  
  85. procedure TMainWin.BBtnInsuranceEnter(Sender: TObject);
  86. begin
  87. MainWin.FormActivate(Sender);
  88. end;
  89.  
  90. procedure TMainWin.BBtnBenefitsEnter(Sender: TObject);
  91. begin
  92. MainWin.FormActivate(Sender);
  93. end;
  94.  
  95. procedure TMainWin.BitBtn3Enter(Sender: TObject);
  96. begin
  97. MainWin.FormActivate(Sender);
  98. end;
  99.  
  100. end.
  101.